home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / WALLCHUNK.s < prev    next >
Encoding:
Text File  |  1996-06-25  |  5.7 KB  |  364 lines
  1.  
  2.  
  3. RELEASEWALLMEM:
  4.  move.l #walltiles,a0
  5.  move.l #wallchunkdata,a5
  6. relmem:
  7.  move.l 4(a5),d0
  8.  beq.s relall
  9.  
  10.  move.l (a0),d1
  11.  beq.s notthismem
  12.  
  13.  move.l d1,a1
  14.  move.l 4.w,a6
  15.  movem.l a0/a5,-(a7)
  16.  jsr -210(a6)
  17.  movem.l (a7)+,a0/a5
  18.  
  19.  
  20. notthismem:
  21.  addq #8,a5
  22.  addq #4,a0
  23.  bra.s relmem
  24.  
  25. relall:
  26.  rts
  27.  
  28. LOADWALLS:
  29.  
  30. **************************************
  31.  
  32. * New loading system:
  33. * Send each filename to a 'server' along with
  34. * addresses for the return values (pos,len)
  35. * then call FLUSHQUEUE, which actually loads
  36. * the files in...
  37.  
  38.  move.l #walltiles,a0
  39.  moveq #39,d7
  40. emptywalls:
  41.  move.l #0,(a0)+
  42.  dbra d7,emptywalls
  43.  
  44.  move.l #walltiles,a4
  45.  move.l LINKFILE,a3
  46.  add.l #WallGFXNames,a3
  47.  move.l #0,TYPEOFMEM
  48.  
  49. loademin:
  50.  move.l (a3),d0
  51.  beq loadedall
  52.  
  53.  move.l a3,a0
  54.  move.l a4,d0    ; address to put start pos
  55.  move.l #0,d1
  56.  
  57.  jsr QUEUEFILE
  58.  
  59.  addq #4,a4
  60.  
  61.  adda.w #64,a3
  62.  bra loademin
  63.  
  64. loadedall:
  65.  
  66.  rts
  67.  
  68. **************************************
  69.  
  70. ; move.l #walltiles,a0
  71. ; moveq #39,d7
  72. ;emptywalls:
  73. ; move.l #0,(a0)+
  74. ; dbra d7,emptywalls
  75. ;
  76. ; move.l #walltiles,a4
  77. ; move.l LINKFILE,a3
  78. ; add.l #WallGFXNames,a3
  79. ; move.l #0,TYPEOFMEM
  80. ; 
  81. ;loademin:
  82. ; move.l (a3),d0
  83. ; beq loadedall
  84.  
  85. ; movem.l a4/a3,-(a7)
  86.  
  87. ; move.l a3,a0
  88. ; jsr LOADAFILE
  89.  
  90. ; movem.l (a7)+,a4/a3
  91.  
  92. ; move.l d0,(a4)+
  93. ; move.l d1,4(a3)
  94.  
  95. ; adda.w #64,a3
  96. ; bra loademin
  97.  
  98. ;loadedall:
  99. ; PRSDN
  100. ; rts
  101.  
  102. handle: dc.l 0
  103.  
  104. UNPACKED: dc.l 0
  105.  
  106. walltiles:
  107.  ds.l 40
  108.  
  109. DEFLOADFILE:
  110. ; Load a file in and unpack it if necessary.
  111. ; Pointer to name in a0
  112. ; Returns address in d0 and length in d1
  113.  
  114.  movem.l d0-d7/a0-a6,-(a7)
  115.  bra.s intoload
  116.  
  117. LOADAFILE:
  118. ; Load a file in and unpack it if necessary.
  119. ; Pointer to name in a0
  120. ; Returns address in d0 and length in d1
  121.  
  122.  movem.l d0-d7/a0-a6,-(a7)
  123.  
  124.  move.l a0,d1
  125.  move.l doslib,a6
  126.  move.l #1005,d2
  127.  jsr -30(a6)
  128.  move.l d0,handle
  129.  
  130. intoload:
  131.  
  132.  lea fib,a5
  133.  move.l handle,d1
  134.  move.l a5,d2
  135.  move.l doslib,a6
  136.  jsr -390(a6)
  137.  move.l $7c(a5),blocklen
  138.  
  139.  move.l TYPEOFMEM,d1
  140.  move.l 4.w,a6
  141.  move.l blocklen,d0
  142.  jsr -198(a6)
  143.  
  144.  move.l d0,blockstart
  145.  
  146.  move.l doslib,a6
  147.  move.l handle,d1
  148.  move.l d0,d2
  149.  move.l blocklen,d3
  150.  jsr -42(a6)
  151.  
  152.  move.l doslib,a6
  153.  move.l handle,d1
  154.  jsr -36(a6)
  155.  
  156.  move.l blockstart,a0
  157.  move.l (a0),d0
  158.  cmp.l #'=SB=',d0
  159.  beq ITSPACKED
  160.  
  161.  move.l blockstart,d0
  162.  move.l blocklen,d1
  163.  move.l d0,a0
  164.  cmp.l #'CSFX',(a0)
  165.  beq ITSASFX
  166.  
  167. ; Not a packed file so just return now.
  168.  movem.l (a7)+,d0-d7/a0-a6
  169.  
  170.  move.l blockstart,d0
  171.  move.l blocklen,d1
  172.  
  173.  rts
  174.  
  175. ITSASFX:
  176.     add.l    #4,d0        ;Skip "CSFX"
  177.     move.l    d1,.CompressedSampleSize
  178.     move.l    d0,a0
  179.     move.l    4.w,a6
  180.     move.l    (a0)+,d0    ;file size
  181.     move.l    d0,.SampleSize
  182.     move.l    a0,.CompressedSamplePosition
  183.     move.l    #MEMF_CHIP,d1
  184.     jsr    _LVOAllocMem(a6)
  185.     move.l    d0,.SamplePosition
  186.     move.l    .CompressedSamplePosition,a0
  187.     move.l    d0,a1
  188.     move.l    .SampleSize,d0
  189.     sub.w    #2,d0
  190.     move.b    (a0)+,d1    ;first byte (actual value)
  191.     move.b    d1,(a1)+
  192.     lea    .FibList(pc),a2
  193. .DecompLoop:
  194.     move.b    (a0)+,d2
  195.     and.w    #$00ff,d2
  196.     move.w    d2,d3
  197.     lsr.w    #4,d2
  198.     and.w    #$000f,d3
  199.     move.b    (a2,d2.w),d4    ;first fib value
  200.     add.b    d4,d1
  201.     move.b    d1,(a1)+    ;store sample value
  202.     dbra    d0,.NotFinishedYet
  203.     bra.s    .SampleFinished
  204. .NotFinishedYet:
  205.     move.b    (a2,d3.w),d4    ;second fib value
  206.     add.b    d4,d1
  207.     move.b    d1,(a1)+    ;store sample value
  208.     dbra    d0,.DecompLoop    
  209. .SampleFinished:
  210.     move.l    .CompressedSamplePosition,a1
  211.     sub.l #8,a1
  212.     move.l    .CompressedSampleSize,d0
  213.     move.l    4.w,a6
  214.     jsr    _LVOFreeMem(a6)
  215.     ;Now check the sample and clip it if it ever gets
  216.     ;too big
  217.     
  218.     move.l    .SamplePosition,a0
  219.     move.l    .SampleSize,d0
  220.     sub.w    #1,d0
  221. .ClipLoop:
  222.     move.b    (a0),d1
  223.     cmp.b    #64,d1
  224.     blt.s    .NotTooBig
  225.     move.b    #63,d1
  226. .NotTooBig:
  227.     cmp.b    #-64,d1
  228.     bge.s    .NotTooSmall
  229.     move.b    #-64,d1
  230. .NotTooSmall:
  231.     move.b    d1,(a0)+
  232.     dbra    d0,.ClipLoop
  233.     
  234.  movem.l (a7)+,d0-d7/a0-a6
  235.  
  236.     move.l    .SamplePosition,d0
  237.     move.l    .SampleSize,d1
  238.     
  239.     rts
  240.     
  241. .CompressedSamplePosition:    dc.l    0
  242. .CompressedSampleSize:        dc.l    0
  243. .SamplePosition:        dc.l    0
  244. .SampleSize:            dc.l    0
  245. .FibList:    dc.b    -34,-21,-13,-8,-5,-3,-2,-1,0,1,2,3,5,8,13,21
  246.  
  247.  
  248.  
  249.  
  250. ITSPACKED:
  251.  
  252.  move.l 4(a0),d0    ; length of unpacked file.
  253.  move.l d0,UNPACKED
  254.  move.l TYPEOFMEM,d1
  255.  move.l 4.w,a6
  256.  jsr -198(a6)
  257.  
  258.  move.l d0,unpackedstart
  259.  
  260.  move.l blockstart,d0
  261.  moveq #0,d1
  262.  move.l unpackedstart,a0
  263.  move.l LEVELDATA,a1
  264.  lea $0,a2
  265.  jsr unLHA
  266.  
  267.  move.l blockstart,d1
  268.  move.l d1,a1
  269.  move.l blocklen,d0
  270.  move.l 4.w,a6
  271.  jsr -210(a6)
  272.  
  273.  move.l unpackedstart,d0
  274.  move.l UNPACKED,d1
  275.  move.l d0,a0
  276.  cmp.l #'CSFX',(a0)
  277.  beq ITSASFX
  278.  
  279.  movem.l (a7)+,d0-d7/a0-a6
  280.  
  281.  move.l unpackedstart,d0
  282.  move.l UNPACKED,d1
  283.  
  284.  rts
  285.  
  286.  
  287. unpackedstart:
  288.  dc.l 0
  289.  
  290. wallchunkdata:
  291.  dc.l GreenMechanicNAME,18560
  292.  dc.l BlueGreyMetalNAME,13056
  293.  dc.l TechnoDetailNAME,13056
  294.  dc.l BlueStoneNAME,10368
  295.  dc.l RedAlertNAME,7552
  296.  dc.l RockNAME,10368
  297.  dc.l scummyNAME,24064
  298.  dc.l stairfrontsNAME,2400
  299.  dc.l bigdoorNAME,13056
  300.  dc.l redrockNAME,13056
  301.  dc.l dirtNAME,24064
  302.  dc.l SwitchesNAME,3456
  303.  dc.l shinyNAME,24064
  304.  dc.l bluemechNAME,15744
  305.  dc.l 0,0
  306.  
  307. GreenMechanicNAME:
  308.  dc.b 'AB3D1:includes/walls/greenmechanic.256wad'
  309.  dc.b 0 
  310.  even
  311. BlueGreyMetalNAME:
  312.  dc.b 'AB3D1:includes/walls/bluegreymetal.256wad'
  313.  dc.b 0
  314.  even
  315. TechnoDetailNAME:
  316.  dc.b 'AB3D1:includes/walls/technodetail.256wad'
  317.  dc.b 0
  318.  even
  319. BlueStoneNAME:
  320.  dc.b 'AB3D1:includes/walls/bluestone.256wad'
  321.  dc.b 0
  322.  even
  323. RedAlertNAME:
  324.  dc.b 'AB3D1:includes/walls/redalert.256wad'
  325.  dc.b 0
  326.  even
  327. RockNAME:
  328.  dc.b 'AB3D1:includes/walls/rock.256wad'
  329.  dc.b 0
  330.  even
  331. scummyNAME:
  332.  dc.b 'AB3D1:includes/walls/scummy.256wad'
  333.  dc.b 0
  334.  even
  335. stairfrontsNAME:
  336.  dc.b 'AB3D1:includes/walls/stairfronts.256wad'
  337.  dc.b 0
  338.  even
  339. bigdoorNAME:
  340.  dc.b 'AB3D1:includes/walls/bigdoor.256wad'
  341.  dc.b 0
  342.  even
  343. redrockNAME:
  344.  dc.b 'AB3D1:includes/walls/redrock.256wad'
  345.  dc.b 0
  346.  even
  347. dirtNAME:
  348.  dc.b 'AB3D1:includes/walls/dirt.256wad'
  349.  dc.b 0
  350.  even
  351. SwitchesNAME:
  352.  dc.b 'AB3D1:includes/walls/switches.256wad'
  353.  dc.b 0
  354.  even 
  355. shinyNAME:
  356.  dc.b 'AB3D1:includes/walls/shinymetal.256wad'
  357.  dc.b 0
  358.  even
  359. bluemechNAME:
  360.  dc.b 'AB3D1:includes/walls/bluemechanic.256wad'
  361.  dc.b 0
  362.  even
  363.  
  364.